Column

Total de acuerdos por tipo y año

Estados de los acuerdos por región

Column

Recuento de Estados y subestados

# A tibble: 27 x 3
# Groups:   data$Stage [7]
   `data$Stage` `data$StageSub`   num
   <chr>        <chr>           <int>
 1 Cea          CeaMix             44
 2 Cea          Ceas              200
 3 Cea          Rel               125
 4 Imp          ExtPar             15
 5 Imp          ExtSub            103
 6 Imp          ImpMod            187
 7 Imp          ImpOth             12
 8 Imp          <NA>                8
 9 Oth          <NA>                9
10 Pre          Conf               87
# … with 17 more rows

Estadísticas

    Stage StageSub variable value
1  SubPar  MultIss    AgtId  1739
2     Imp   ExtSub    AgtId  1923
3     Imp   ExtSub    AgtId   864
4     Pre     Prin    AgtId   848
5     Imp   ExtSub    AgtId   849
6     Imp   ExtSub    AgtId   709
7     Pre   PreMix    AgtId   708
8     Imp   ExtSub    AgtId   707
9  SubPar  MultIss    AgtId   706
10    Imp   ExtSub    AgtId   847
11    Imp   ExtSub    AgtId   705
12    Imp   ImpMod    AgtId  1069
13 SubPar  MultIss    AgtId  1061
14    Imp   ExtSub    AgtId  1054
15 SubPar  MultIss    AgtId   909
16    Imp   ImpMod    AgtId   908
---
title: "Peace Agreements Database"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
    source_code: embed
---

```{r setup, include=FALSE}
library(flexdashboard)
library(readxl)
library(ggplot2)
library(plotly)
data<-read_excel("/Users/luismanuelcamacho/Desktop/pax_all_agreements_data.xlsx")
```

Column {data-width=900}
-----------------------------------------------------------------------

### Total de acuerdos por tipo y año

```{r, include=TRUE}
p<-ggplot(data, aes(x=as.numeric(data$Age), fill=data$Agtp)) +
    geom_histogram(binwidth=.5, alpha=.5, stat="count") + 
    scale_fill_discrete(name = "Tipo de acuerdo") +
    scale_x_continuous(name="Año",limits=c(1989,2020)) +
    scale_y_continuous(name="Número de acuerdos",limits=c(0,100)) +
    theme(legend.title = element_text(size = 7),legend.text = element_text( size=6))

ggplotly(p)
```

### Estados de los acuerdos por región

```{r, include=TRUE}
p<-ggplot(data, aes(x=data$Status, fill=data$Reg)) +
    geom_histogram(binwidth=.5, alpha=.5,stat="count",position="dodge") +
    scale_fill_discrete(name = "Región") +
    scale_x_discrete(name="Estado del acuerdo") +
    scale_y_continuous(name="Número de acuerdos",limits=c(0,520)) +
    theme(axis.text.x = element_text(size=8),legend.title = element_text(size = 7), legend.text = element_text( size=6))

ggplotly(p)
```


Column {.tabset data-width=350}
-----------------------------------------------------------------------
### Recuento de Estados y subestados

```{r}
library(d3heatmap)
df<-group_by(data, data$Stage,data$StageSub)

df2<-summarise(df, num=n())

print(df2)

```

### Estadísticas
```{r}
library(reshape2)
data2<-melt(data, id.vars=c("Stage","StageSub"), measure.vars="AgtId") 

head(data2,16)

```